home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / apps⁄nodes⁄zones < prev    next >
Encoding:
Text File  |  1994-05-03  |  673 b   |  20 lines  |  [TEXT/ToyS]
  1. set zl to (list zones)
  2. repeat with z in zl
  3.     display dialog "The following nodes are in zone " & z
  4.     set oldDelims to AppleScript's text item delimiters
  5.     set AppleScript's text item delimiters to ":"
  6.     set m to (list nodes type "Macintosh≈" zone z)
  7.     repeat with n in m
  8.         set machName to text item 1 of n
  9.         display dialog "The following applications are running on machine " & machName
  10.         try
  11.             set ll to (list links on machName in zone z)
  12.             repeat with l in ll
  13.                 display dialog l
  14.             end repeat
  15.         on error num
  16.             display dialog "We are not allowed to connect to machine " & machName & "."
  17.         end try
  18.     end repeat
  19.     set AppleScript's text item delimiters to oldDelims
  20. end repeat